home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs13.d81 / cosspi.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  20KB  |  538 lines
  1. 0 PRINT"[147]":POKE53280,0:POKE53281,0:EGG=0:CT=0:FD(1)=200
  2. 58 RESTORE:CH=500:FORA=1TO8:READB$:READC:EN$(A)=B$:HD(A)=C:NEXTA
  3. 59 RESTORE:FORA=1TO8:READO$:READO:NEXTA
  4. 60 FORA=1TO4:READO$:N$(A)=O$:NEXTA
  5. 61 FORA=1TO5:D=INT(RND(0)*7)+1:Z(A)=D:NEXTA
  6. 62 IFMT=1THENGOTO64
  7. 63 FORA=1TO4:MT(A)=Z(A)+HD(1):NEXTA:MT=1:GOTO61
  8. 64 IFFY=1THENGOTO66
  9. 65 FORA=1TO4:FY(A)=Z(A)+HD(2):NEXTA:FY=1:GOTO61
  10. 66 IFRH=1THENGOTO68
  11. 67 FORA=1TO4:RH(A)=Z(A)+HD(3):NEXTA:RH=1:GOTO61
  12. 68 IFLG=1THENGOTO70
  13. 69 FORA=1TO4:LG(A)=Z(A)+HD(4):NEXTA:LG=1:GOTO61
  14. 70 IFSP=1THENGOTO72
  15. 71 FORA=1TO4:SP(A)=Z(A)+HD(5):NEXTA:SP=1:GOTO61
  16. 72 IFHK=1THENGOTO74
  17. 73 FORA=1TO4:HK(A)=Z(A)+HD(6):NEXTA:HK=1:GOTO61
  18. 74 IFRT=1THENGOTO76
  19. 75 FORA=1TO4:RT(A)=Z(A)+HD(7):NEXTA:RT=1:GOTO61
  20. 76 IFSK=1THENGOTO78
  21. 77 FORA=1TO4:SK(A)=Z(A)+HD(8):NEXTA:SK=1:GOTO61
  22. 78 FORA=1TO8:Z=INT(RND(1)*26)+2:Z(A)=Z:EMN(A)=Z(A):NEXTA
  23. 80 FORA=2TO8:IFEMN(1)=Z(A)THENGOTO78
  24. 81 NEXTA
  25. 82 FORA=3TO8:IFEMN(2)=Z(A)THENGOTO78
  26. 83 NEXTA
  27. 84 FORA=4TO8:IFEMN(3)=Z(A)THENGOTO78
  28. 85 NEXTA
  29. 86 FORA=5TO8:IFEMN(4)=Z(A)THENGOTO78
  30. 87 NEXTA
  31. 88 FORA=6TO8:IFEMN(5)=Z(A)THENGOTO78
  32. 89 NEXTA
  33. 90 FORA=7TO8:IFEMN(6)=Z(A)THENGOTO78
  34. 91 NEXTA
  35. 92 IFEMN(7)=Z(8)THENGOTO78
  36. 95 MN=1:BC=53280:SC=53281:CN=55296:CO=1024
  37. 100 PRINT"[147]":POKESC,10:POKEBC,0
  38. 101 FORA=1TO40:PRINTCHR$(14)"        *[195]OSMIC [211]PIDER [193]DVENTURE"
  39. 102 PRINT"        *[144][195]OSMIC [211]PIDER [193]DVENTURE"
  40. 103 PRINT"           BY [193]NDREW [194]LEVINS"
  41. 104 PRINT"[159]           BY [193]NDREW [194]LEVINS"
  42. 105 NEXTA
  43. 106 PRINT"[144]        *[195]OSMIC [211]PIDER [193]DVENTURE"
  44. 107 PRINT"[144]           BY [193]NDREW [194]LEVINS":IFPA>0THENPOKESC,0:GOTO127
  45. 108 FORA=1TO20:PRINT"":NEXTA
  46. 109 PRINT"[150][201]MAGINE YOURSELF AS A SPIDER ON A WHIM"
  47. 110 PRINT"TO COVER THE EARTH WITH HUGE AMOUNTS OF"
  48. 111 PRINT"SPIDERS AND AS A VERY INTELIGENT ONE OF"
  49. 112 PRINT"YOUR SPECIES ON EARTH, YOU SET OUT TO"
  50. 113 PRINT"ACCOMPLISH THIS HEAVY TASK ALL ALONE."
  51. 114 PRINT"[217]OU HAVE A SPECIAL BEAMING DEVICE THAT"
  52. 115 PRINT"HAS SENT YOU TO OTHER WORLDS AND IN "
  53. 116 PRINT"YOUR TRAVELS YOU HAVE BEEN TO A PLANET"
  54. 117 PRINT"CALLED [211]PYRYN BY THOSE WHO LIVE THERE."
  55. 118 PRINT"[193]ND IT IS THE MOST HAZARDOUS OF PLANETS"
  56. 119 PRINT"YOU'VE SEEN. [201]N YOUR RECENT TRAVELS "
  57. 120 PRINT"THERE YOU HAVE HEARD OF A SPECIES OF"
  58. 121 PRINT"SPIDER THAT CAN REPRODUCE IN DRAMATIC"
  59. 122 PRINT"NUMBERS AND YOU PREPARE YOURSELF AND "
  60. 123 PRINT"SET OUT TO RETURN WITH A SET OF EGGS,"
  61. 124 PRINT"BUT TO ACCOMPLISH THIS YOU MUST FIND    THEM AND RETURN ALIVE!"
  62. 125 FORA=CN+(40*5)TOCN+(40*24)
  63. 126 FORB=1TO23:NEXTB:POKEA,1:POKEA-1,7:POKEA-2,8:POKEA-3,2:POKEA-4,0:NEXTA
  64. 127 POKESC,0:POKEBC,0
  65. 128 INPUT"[147]NEED INSTRUCTIONS Y=YES N=NO ";V$:IFV$="N"THENPRINTCHR$(142):GOTO149
  66. 130 POKESC,0:POKEBC,0:PRINTCHR$(142)"[158][147]"
  67. 131 PRINT"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
  68. 132 PRINT"[194]COSMIC SPIDER SET-UP FOR PLANET SPYRYN[194]";
  69. 133 PRINT"[194]                                      [194]";
  70. 134 PRINT"[194]YOU HAVE";CH"ABILITY PEPPER UNITS     [194]";
  71. 135 PRINT"[194]THAT CAN BE TURNED INTO AMOUNTS OF THE[194]";
  72. 136 PRINT"[194]FOLLOWING SUPPLIES.                   [194]";
  73. 137 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":FORB=1TO2500:NEXTB
  74. 138 PRINT"[159]SPIT[146]-[FOR ATTACKING TO CORRODE][159]        "
  75. 139 FORB=1TO1500:NEXTB
  76. 140 PRINT"CLIMB[146]-[FOR PHYSICAL ATTACK][159]            "
  77. 141 FORB=1TO1500:NEXTB
  78. 142 PRINT"FOOD[146]-[FOR PURE SURVIVAL AND STRENGTH][159]   "
  79. 143 FORB=1TO1500:NEXTB
  80. 144 PRINT"WEB[146]-[FOR WEBBING ATTACKS TO TRAP ENEMY][159]  "
  81. 145 FORB=1TO1500:NEXTB
  82. 146 PRINT"Z-RAY[146]-[FOR PARALIZING THE ENEMY][159]                  "
  83. 147 FORB=1TO1500:NEXTB
  84. 148 PRINT"                                             "
  85. 149 ST(1)=0:CB(1)=0:WB(1)=0:PRINT"[147][159][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
  86. 150 POKESC,0:POKEBC,0:PRINT"[194]COSMIC SPIDER SET-UP FOR PLANET SPYRYN[194]";
  87. 151 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":T=0
  88. 152 GOSUB173:PRINT"[159]AMOUNT OF SPIT YOU NEED";:INPUTT:GOSUB170
  89. 153 ST(1)=ST(1)+T:IFCH<1THENGOTO168
  90. 154 CH=CH-T:IFT=0THEN152
  91. 155 T=0:GOSUB173:PRINT"AMOUNT OF WEB YOU NEED";:INPUTT:GOSUB170
  92. 156 WB(1)=WB(1)+T:IFCH<1THENGOTO168
  93. 157 CH=CH-T:IFT=0THEN155
  94. 158 T=0:GOSUB173:PRINT"AMOUNT OF CLIMB YOU NEED";:INPUTT:GOSUB170
  95. 159 CB(1)=CB(1)+T:IFCH<1THENGOTO168
  96. 160 CH=CH-T:IFT=0THEN158
  97. 161 T=0:GOSUB173:PRINT"AMOUNT OF Z-RAY YOU NEED";:INPUTT:GOSUB170
  98. 162 XR(1)=XR(1)+T:IFCH<1THENGOTO168
  99. 163 CH=CH-T:IFT=0THEN161
  100. 167 GOSUB173:FORA=1TO900:NEXTA
  101. 168 FORA=1TO10:PRINT"[147]BEAMING.....":FORB=1TO40:NEXTB:PRINT"BEAMING.........."
  102. 169 FORB=1TO50:NEXTB:PRINT"[158]BEAMING...............":NEXTA:GOTO200
  103. 170 IFT>400ORT<50ORT>CHTHENT=0:RETURN
  104. 172 RETURN
  105. 173 PRINT"[156]PEPPER UNITS:(         [157][157][157][157][157][157][157][157][157]";CH")"
  106. 174 PRINT"[158]SUGGEST SPENDING CAREFULLY!      "
  107. 175 PRINT"YOU COULD BE BEAMED TO SPYRYN ANY TIME  IF YOU SPEND CARELESSLY.[159]"
  108. 176 IFCH=0THENPRINT"[147]":GOTO168
  109. 177 PRINT"*SUPPLY LIMITS:BETWEEN 50 AND 400"
  110. 178 PRINT"*FOOD/ENERGY AMOUNT PRE-SET TO 200[159]"
  111. 179 RETURN
  112. 200 IF(ST(1)+WB(1)+XR(1)+CB(1))<10THENCT=1
  113. 201 IFFD(1)<5THENGOTO10000
  114. 202 IFMN=1THENPOKEBC,7:POKESC,7:PRINT"[144]":GOTO400
  115. 205 IFMN=2THENPOKEBC,15:POKESC,15:PRINT"":GOTO406
  116. 210 IFMN=3THENPOKEBC,5:POKESC,5:PRINT"[158]":GOTO412
  117. 215 IFMN=4THENPOKEBC,13:POKESC,13:PRINT"[144]":GOTO418
  118. 220 IFMN=5THENPOKEBC,0:POKESC,0:PRINT"[159]":GOTO424
  119. 225 IFMN=6THENPOKEBC,7:POKESC,7:PRINT"[144]":GOTO430
  120. 230 IFMN=7THENPOKEBC,15:POKESC,15:PRINT"":GOTO436
  121. 235 IFMN=8THENPOKEBC,5:POKESC,5:PRINT"[158]":GOTO442
  122. 240 IFMN=9THENPOKEBC,13:POKESC,13:PRINT"[144]":GOTO448
  123. 245 IFMN=10THENPOKEBC,0:POKESC,0:PRINT"[159]":GOTO454
  124. 250 IFMN=11THENPOKEBC,15:POKESC,15:PRINT"":GOTO460
  125. 255 IFMN=12THENPOKEBC,7:POKESC,7:PRINT"[144]":GOTO466
  126. 260 IFMN=13THENPOKEBC,13:POKESC,13:PRINT"[144]":GOTO472
  127. 265 IFMN=14THENPOKEBC,13:POKESC,13:PRINT"[144]":GOTO478
  128. 270 IFMN=15THENPOKEBC,15:POKESC,15:PRINT"":GOTO484
  129. 275 IFMN=16THENPOKEBC,0:POKESC,0:PRINT"[159]":GOTO490
  130. 280 IFMN=17THENPOKEBC,5:POKESC,5:PRINT"[158]":GOTO496
  131. 285 IFMN=18THENPOKEBC,9:POKESC,9:PRINT"":GOTO502
  132. 290 IFMN=19THENPOKEBC,0:POKESC,0:PRINT"[159]":GOTO508
  133. 295 IFMN=20THENPOKEBC,9:POKESC,9:PRINT"":GOTO514
  134. 300 IFMN=21THENPOKEBC,7:POKESC,7:PRINT"[144]":GOTO520
  135. 305 IFMN=22THENPOKEBC,13:POKESC,13:PRINT"[144]":GOTO526
  136. 310 IFMN=23THENPOKEBC,7:POKESC,7:PRINT"[144]":GOTO532
  137. 315 IFMN=24THENPOKEBC,5:POKESC,5:PRINT"[158]":GOTO538
  138. 320 IFMN=25THENPOKEBC,15:POKESC,15:PRINT"":GOTO544
  139. 325 IFMN=26THENPOKEBC,9:POKESC,9:PRINT"":GOTO550
  140. 330 IFMN=27THENPOKEBC,13:POKESC,13:PRINT"[144]":GOTO556
  141. 335 IFMN=28THENPOKEBC,0:POKESC,0:PRINT"[159]":GOTO562
  142. 340 IFMN>28THENMN=1:GOTO200
  143. 345 GOTO200
  144. 400 PRINT"[147]YOU ARE IN A LARGE HOLE,BURIED UNDER HOTSAND AS YOU SLIP IN AND OUT"
  145. 401 PRINT"OF YOUR BEAMING TO THE PLANET SPYRYN ANDYOU FEEL YOUR POWERS THRIVE!"
  146. 402 GOSUB3000:GOSUB4000:GOTO200
  147. 406 PRINT"[147]YOU HAVE COME FAR AND YOU CAN FEEL THE  GROUND GETTING SOFT AROUND"
  148. 407 PRINT"YOUR FEET AND YOU SMELL A BAD SMELL     AND A COLD SENSATION..."
  149. 408 GOSUB3000:GOSUB4000:GOTO200
  150. 412 PRINT"[147]YOU RUN INTO A FORCEFIELD AND YOU CAN   SEE A TUNNEL WITH A GREAT"
  151. 413 PRINT"GLOW COMING FROM INSIDE AND A SOUND OF  BABY SPIDERS..."
  152. 414 GOSUB3000:GOSUB4000:GOTO200
  153. 418 PRINT"[147]A TERRITORIAL JUMP FROM HERE WILL TAKE  YOU DIRECTLY TO THE BACK"
  154. 419 PRINT"OF THE SWAMPLANDS,THIS YOU HERE FROM    A SPIDER THAT SEES YOU!"
  155. 420 GOSUB3000:GOSUB4000:GOTO200
  156. 424 PRINT"[147]YOU LOOK OVER BY THE SNAKES IN THE      WATER AND YOU FIND THE GREAT"
  157. 425 PRINT"PIT OF RETURN AND YOUR HEART BEATS RAPIDAS IT CAN."
  158. 426 GOSUB3000:GOSUB4000:GOTO200
  159. 430 PRINT"[147]YOU HAVE A PROBLEM HERE AND YOU FEEL    TOTALLY LOST AND NEED A BIG"
  160. 431 PRINT"CHANGE OF DIRECTION FOR IT IS SAID THAT THE FORREST HOLDS A SECRET!"
  161. 432 GOSUB3000:GOSUB4000:GOTO200
  162. 436 PRINT"[147]MOUNTAINS OF SPYRYN ARE VERY TALL AND   THE DARKNESS OF THE MANY"
  163. 437 PRINT"SHADOWS SENDS YOU SEEKING SOME LIGHT!!"
  164. 438 GOSUB3000:GOSUB4000:GOTO200
  165. 442 PRINT"[147]THE FORREST IS VERY DARK AND YOU SEE    SHADOWS IN THE TREETOPS,"
  166. 443 PRINT"AND YOU LISTEN CAREFULLY FOR DANGERS."
  167. 444 GOSUB3000:GOSUB4000:GOTO200
  168. 448 PRINT"[147]YOU HAVE ENTERED THE GRASSLANDS AND YOU FEEL A COOL BREEZE SWEEP"
  169. 449 PRINT"PAST AND THE LEAVES ARE DRY HERE AND    THEY PASS BY YOU RAPIDLY."
  170. 450 GOSUB3000:GOSUB4000:GOTO200
  171. 454 PRINT"[147]YOU ARE IN THE SWAMP AND YOU FIND THAT  WATER IS VERY WARM AND "
  172. 455 PRINT"YOU FEEL VIBRATIONS IN THE WATER AND    IT COMES FROM A CLOSE AREA."
  173. 456 GOSUB3000:GOSUB4000:GOTO200
  174. 460 PRINT"[147]YOU ARE ON THE EDGE OF THE MOUNTAINS    AND YOU SEE ALL OF SPYRYN"
  175. 461 PRINT"FROM HERE AND IT REMINDS YOU OF HOME!"
  176. 462 GOSUB3000:GOSUB4000:GOTO200
  177. 466 PRINT"[147]YOU ENTER A LARGE ROCK BRIDGE AND IT    HAS MANY OTHER SPIDERS"
  178. 467 PRINT"THAT LOOK AT YOU WITH AN EVIL STARE AND THEY APPROACH YOU."
  179. 468 GOSUB3000:GOSUB4000:GOTO200
  180. 472 PRINT"[147]AT THE EDGE OF A POND YOU STARE INTO    THE WATER AND YOU ARE"
  181. 473 PRINT"TAKEN BY MEMORIES OF HOME AND YOU WISH  YOU WERE THERE..."
  182. 474 GOSUB3000:GOSUB4000:GOTO200
  183. 478 PRINT"[147]YOU FIND A PIECE OF BROKEN MIRROR AND   IT HAS A REFLECTION OF"
  184. 479 PRINT"A MOUNTAIN RANGE YET YOU FIND YOURSELF  IN THE GRASSLAND?"
  185. 480 GOSUB3000:GOSUB4000:GOTO200
  186. 484 PRINT"[147]YOU EDGE UP TO A CLIFF AND LOOK OVER THEEDGE AND YOUR E.S.P. TELLS"
  187. 485 PRINT"YOU YOU ARE CLOSE..VERY CLOSE TO SOME   SORT OF CONNECTION?"
  188. 486 GOSUB3000:GOSUB4000:GOTO200
  189. 490 PRINT"[147]YOU SEE TWO SEPARATE CAVES WITH WATER   RUSHING IN THE BOTH OF THEM"
  190. 491 PRINT"AND YOU CAN NOT DECIDE WHY THEY GLOW    SO VERY BRIGHTLY IN THE DAY?"
  191. 492 GOSUB3000:GOSUB4000:GOTO200
  192. 496 PRINT"[147][144]HERE ARE THE EGGS AND YOU CAN WEB THEM  UP AND MAKE A TERRITORIAL"
  193. 497 PRINT"JUMP TO ESCAPE. IT WILL TAKE AWAY 25    UNITS OF ENERGY....."
  194. 498 A$="":INPUT"[144]WEB IT ON YOU Y-YES OR N-NO";A$:IFA$=""THEN498
  195. 499 IFA$="Y"THENFD(1)=FD(1)-25:EGG=1:MN=27:GOTO200
  196. 500 IFA$<>"Y"ANDA$<>"N"THENGOTO498
  197. 501 MN=11:GOTO200
  198. 502 PRINT"[147]YOU ARE NOW IN THE HIGHEST POINT OF THE AREA OF THE LAND AND YOU"
  199. 503 PRINT"SEARCH AROUND FOR THE CAVE OF THE EGG   AND THE CAVE OF RETURN...."
  200. 504 GOSUB3000:GOSUB4000:GOTO200
  201. 508 PRINT"[147]YOU HAVE STEPPED ONTO SOME DEAD WEEDS   IN THE SWAMPLANDS AND YOU"
  202. 509 PRINT"BEGIN TO SINK DOWN INTO THE SWAMP!"
  203. 510 GOSUB3000:GOSUB4000:GOTO200
  204. 514 PRINT"[147]YOU ARE IN A MUD PUDDLE!!"
  205. 515 PRINT"AND YOU ARE VERY DIRTY!"
  206. 516 GOSUB3000:GOSUB4000:GOTO200
  207. 520 PRINT"[147]THE SANDS BEGIN TO BURN THE PADS OF YOURFEET AND YOU GET VERY,VERY"
  208. 521 PRINT"UNCOMFORATABLE AND YOU LOOK AROUND AT   THE LONELY DESERT."
  209. 522 GOSUB3000:GOSUB4000:GOTO200
  210. 526 PRINT"[147]YOU ARE COMMING UP ON THE GREAT FORREST OF SPYRYN AND YOU LOOK"
  211. 527 PRINT"UP AT A BIRD IN THE TREE THAT MOTIONS   YOU TO RUSH ON IN!"
  212. 528 GOSUB3000:GOSUB4000:GOTO200
  213. 532 PRINT"[147]AT THE EDGE OF THE DESERT YOU START TO  TRIP OVER SOME LARGE GRASS"
  214. 533 PRINT"AND YOU SEE NO SIGN OF LIFE HERE AND    YOU LOOK FOR CLUES.."
  215. 534 GOSUB3000:GOSUB4000:GOTO200
  216. 538 PRINT"[147]THE FORREST TREES ARE ALL AROUND AND YOUFIND THE CAVE VERY,VERY"
  217. 539 PRINT"CLOSE AND YOU CAN DO NOTHING TO GET TO  IT FROM HERE WHERE YOU STAND!"
  218. 540 GOSUB3000:GOSUB4000:GOTO200
  219. 544 PRINT"[147]YOU COME AROUND A GIANT ROCK AND YOU SEEGRAVEL THAT HAS THE WORD"
  220. 545 PRINT"D.I.R.T. AND A DEEP INDENTION IN THE    GROUND NEXT TO IT?"
  221. 546 GOSUB3000:GOSUB4000:GOTO200
  222. 550 PRINT"[147]FROM HERE YOU LOOK INTO THE SKY AND ON  THE OTHER SIDE OF A MOUND"
  223. 551 PRINT"OF DIRT YOU SEE A REFLECTION IN THE SKY THAT LOOKS GREEN!?"
  224. 552 GOSUB3000:GOSUB4000:GOTO200
  225. 556 PRINT"[147]YOU HAVE COME INTO THE MIDDLE OF THE    GRASSLANDS AND YOU FEEL"
  226. 557 PRINT"VERY HAPPY HERE EXCEPT THAT YOU HAVE A  MISSION TO COMPLETE SOON."
  227. 558 GOSUB3000:GOSUB4000:GOTO200
  228. 562 PRINT"[147]YOU HAVE FELL INTO A PIT-LIKE WATERFALL AND YOU HOPE TO HAVE THE"
  229. 563 PRINT"EGG OR YOU WILL BE [158]COUGHED[159] OUT!......":FORC=1TO4000:NEXTC
  230. 564 IFEGG>0THENGOTO20000
  231. 565 IFEGG<1THENKK=INT(RND(0)*26)+2:MN=KK:PRINT"**COUGH!!!**":FORC=1TO1100:NEXTC
  232. 566 GOTO200
  233. 574 PRINT"[147]YOU SEEM TO BE ON THE DIRT OF A FIELD   ON SPYRYN AND YOU SEE"
  234. 575 PRINT"NOTHING SPECIAL.."
  235. 576 GOSUB3000:GOSUB4000:GOTO200
  236. 999 END
  237. 1000 IF(SP+WB+XR+CB)=0THENSP=0:WB=0:XR=0:CB=0:GOTO4520
  238. 1001 POKE53280,0:POKE53281,0:PRINT"[147] [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  239. 1005 PRINT" [194][150]RESISTANCE[159][209][150] DAMAGES[159][209][150] REPORT MONITOR[159][209][194]"
  240. 1010 PRINT" [194]                                    [194]"
  241. 1015 PRINT" [194][150]MONITOR READS A[159]";N$(B)"[150]OPPONENT"
  242. 1020 PRINT"[194]"
  243. 1021 PRINT" [194]                                    [194]"
  244. 1025 PRINT" [194]SPIT RESISTANCE/DAMAGE:             [194]"
  245. 1026 PRINT" [194]  [153]0++++1++++2++++3++++4++++5++++6   [194]"
  246. 1027 PRINT" [194] [158]                                 [146]  [194]"
  247. 1030 PRINT" [194]WEB RESISTANCE/DAMAGE:              [194]"
  248. 1031 PRINT" [194]  [153]0++++1++++2++++3++++4++++5++++6   [194]"
  249. 1032 PRINT" [194] [158]                                 [146]  [194]"
  250. 1035 PRINT" [194]CLIMB RESISTANCE/DAMAGE:            [194]"
  251. 1036 PRINT" [194]  [153]0++++1++++2++++3++++4++++5++++6   [194]"
  252. 1037 PRINT" [194] [158]                                 [146]  [194]"
  253. 1040 PRINT" [194]Z-RAY RESISTANCE/DAMAGE:            [194]"
  254. 1041 PRINT" [194]  [153]0++++1++++2++++3++++4++++5++++6   [194]"
  255. 1042 PRINT" [194] [158]                                 [146]  [194]"
  256. 1045 PRINT" [194]                                    [194]"
  257. 1046 PRINT" [194]                                    [194]"
  258. 1047 PRINT" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  259. 1048 FORF=1TO4:R(F)=0:NEXT
  260. 1050 ONAGOTO1060,1061,1062,1063,1064,1065,1066,1067
  261. 1060 FORF=1TO4:R(F)=MT(F):NEXT:GOTO1070
  262. 1061 FORF=1TO4:R(F)=FY(F):NEXT:GOTO1070
  263. 1062 FORF=1TO4:R(F)=RH(F):NEXT:GOTO1070
  264. 1063 FORF=1TO4:R(F)=LG(F):NEXT:GOTO1070
  265. 1064 FORF=1TO4:R(F)=SP(F):NEXT:GOTO1070
  266. 1065 FORF=1TO4:R(F)=HK(F):NEXT:GOTO1070
  267. 1066 FORF=1TO4:R(F)=RT(F):NEXT:GOTO1070
  268. 1067 FORF=1TO4:R(F)=SK(F):NEXT:GOTO1070
  269. 1070 PRINT"";
  270. 1075 R(1)=R(1)*3:FORF=1TOR(1)-INT(SP/10*3):PRINT" ";:NEXT
  271. 1080 PRINT"";
  272. 1085 R(2)=R(2)*3:FORF=1TOR(2)-INT(WB/10*3):PRINT" ";:NEXT
  273. 1090 PRINT"";
  274. 1095 R(3)=R(3)*3:FORF=1TOR(3)-INT(CB/10*3):PRINT" ";:NEXT
  275. 1100 PRINT"";
  276. 1105 R(4)=R(4)*3:FORF=1TOR(4)-INT(XR/10*3):PRINT" ";:NEXT
  277. 1110 ONAGOTO1120,1130,1140,1150,1160,1170,1180,1190
  278. 1120 MT(1)=MT(1)-INT(SP/10):MT(2)=MT(2)-INT(WB/10)
  279. 1121 MT(3)=MT(3)-INT(CB/10):MT(4)=MT(4)-INT(XR/10)
  280. 1125 GOTO2000
  281. 1130 FY(1)=FY(1)-INT(SP/10):FY(2)=FY(2)-INT(WB/10)
  282. 1131 FY(3)=FY(3)-INT(CB/10):FY(4)=FY(4)-INT(XR/10)
  283. 1135 GOTO2000
  284. 1140 RH(1)=RH(1)-INT(SP/10):RH(2)=RH(2)-INT(WB/10)
  285. 1141 RH(3)=RH(3)-INT(CB/10):RH(4)=RH(4)-INT(XR/10)
  286. 1145 GOTO2000
  287. 1150 LG(1)=LG(1)-INT(SP/10):LG(2)=LG(2)-INT(WB/10)
  288. 1151 LG(3)=LG(3)-INT(CB/10):LG(4)=LG(4)-INT(XR/10)
  289. 1155 GOTO2000
  290. 1160 SP(1)=SP(1)-INT(SP/10):SP(2)=SP(2)-INT(WB/10)
  291. 1161 SP(3)=SP(3)-INT(CB/10):SP(4)=SP(4)-INT(XR/10)
  292. 1165 GOTO2000
  293. 1170 HK(1)=HK(1)-INT(SP/10):HK(2)=HK(2)-INT(WB/10)
  294. 1171 HK(3)=HK(3)-INT(CB/10):HK(4)=HK(4)-INT(XR/10)
  295. 1175 GOTO2000
  296. 1180 RT(1)=RT(1)-INT(SP/10):RT(2)=RT(2)-INT(WB/10)
  297. 1181 RT(3)=RT(3)-INT(CB/10):RT(4)=RT(4)-INT(XR/10)
  298. 1185 GOTO2000
  299. 1190 SK(1)=SK(1)-INT(SP/10):SK(2)=SK(2)-INT(WB/10)
  300. 1191 SK(3)=SK(3)-INT(CB/10):SK(4)=SK(4)-INT(XR/10)
  301. 2000 ST(1)=ST(1)-SP:WB(1)=WB(1)-WB:XR(1)=XR(1)-XR:CB(1)=CB(1)-CB
  302. 2010 ONAGOTO2020,2030,2040,2050,2060,2070,2080,2090
  303. 2020 FORF=1TO4:IFMT(F)<1THENGOTO4600
  304. 2025 NEXTF:GOTO2096
  305. 2030 FORF=1TO4:IFFY(F)<1THENGOTO4600
  306. 2035 NEXTF:GOTO2096
  307. 2040 FORF=1TO4:IFRH(F)<1THENGOTO4600
  308. 2045 NEXTF:GOTO2096
  309. 2050 FORF=1TO4:IFLG(F)<1THENGOTO4600
  310. 2055 NEXTF:GOTO2096
  311. 2060 FORF=1TO4:IFSP(F)<1THENGOTO4600
  312. 2065 NEXTF:GOTO2096
  313. 2070 FORF=1TO4:IFHK(F)<1THENGOTO4600
  314. 2075 NEXTF:GOTO2096
  315. 2080 FORF=1TO4:IFRT(F)<1THENGOTO4600
  316. 2085 NEXTF:GOTO2096
  317. 2090 FORF=1TO4:IFSK(F)<1THENGOTO4600
  318. 2095 NEXTF
  319. 2096 GOTO4556
  320. 2500 END
  321. 3000 C=(PEEK(53280))
  322. 3001 IFFD(1)<101ANDFD(1)>69THENPRINT"YOU'RE FEELING SICK!"
  323. 3002 IFFD(1)<70ANDFD(1)>49THENPRINT"YOU NEED SOME FOOD!"
  324. 3003 IFFD(1)<50ANDFD(1)>19THENPRINT"YOU MUST EAT!"
  325. 3004 IFFD(1)<20ANDFD(1)>0THENPRINT"YOU'RE VERY SICK!!"
  326. 3005 PRINT"YOUR ENERGY IS:";FD(1)
  327. 3008 IFC=247THENPRINT"[144]YOUR IN THE DESERT LANDS"
  328. 3009 IFC=253THENPRINT"[144]YOUR IN THE GRASS LANDS"
  329. 3010 IFC=245THENPRINT"[158]YOUR IN THE DEEP FORREST"
  330. 3011 IFC=255THENPRINT"YOUR IN THE MOUNTAINS"
  331. 3012 IFC=240THENPRINT"[159]YOUR IN THE SWAMPLANDS"
  332. 3013 IFC=249THENPRINT"YOUR IN THE DIRTLAND"
  333. 3014 IFFD(1)<1THENGOTO10000
  334. 3015 RETURN
  335. 4000 A=0:FORA=1TO8:IFMN=EMN(A)THENGOTO4500
  336. 4006 NEXTA
  337. 4010 T$="":INPUT"J=TERRITORIAL JUMP C=QUICK CRAWL";T$
  338. 4011 IFT$=""THENGOTO4010
  339. 4012 IFT$="C"THENFD(1)=FD(1)-10:GOTO4020
  340. 4013 IFT$="J"THENFD(1)=FD(1)-20:KK=INT(RND(0)*2)+1:MN=MN+KK:GOTO4015
  341. 4014 GOTO4010
  342. 4015 IFMN=28ORMN=1ORMN=17ORMN=3ORMN=24THENMN=18
  343. 4016 RETURN
  344. 4020 IFMN=1THENMN=21:RETURN
  345. 4021 IFMN=21THENMN=12:RETURN
  346. 4022 IFMN=12THENMN=6:RETURN
  347. 4023 IFMN=6THENMN=23:RETURN
  348. 4024 IFMN=23THENMN=9:RETURN
  349. 4025 IFMN=9THENMN=27:RETURN
  350. 4026 IFMN=27THENMN=13:RETURN
  351. 4027 IFMN=13THENMN=4:RETURN
  352. 4028 IFMN=4THENMN=22:RETURN
  353. 4029 IFMN=22THENMN=14:RETURN
  354. 4030 IFMN=14THENMN=8:RETURN
  355. 4031 IFMN=8THENMN=3:RETURN
  356. 4032 IFMN=3THENMN=24:RETURN
  357. 4033 IFMN=24THENMN=17:RETURN
  358. 4034 IFMN=17THENMN=11:RETURN
  359. 4035 IFMN=11THENMN=15:RETURN
  360. 4036 IFMN=15THENMN=25:RETURN
  361. 4037 IFMN=25THENMN=7:RETURN
  362. 4038 IFMN=7THENMN=2:RETURN
  363. 4039 IFMN=2THENMN=19:RETURN
  364. 4040 IFMN=19THENMN=16:RETURN
  365. 4041 IFMN=16THENMN=10:RETURN
  366. 4042 IFMN=10THENMN=5:RETURN
  367. 4043 IFMN=5THENMN=28:RETURN
  368. 4044 IFMN=28THENMN=20:RETURN
  369. 4045 IFMN=20THENMN=26:RETURN
  370. 4046 IFMN=26THENMN=18:RETURN
  371. 4047 IFMN=18THENMN=12:RETURN
  372. 4048 IFMN>28THENMN=12:RETURN
  373. 4049 RETURN
  374. 4500 PRINT"[144]":POKEBC,2:POKESC,2
  375. 4501 PRINT"[147]YOU HAVE RUN INTO AN OPPONENT DO YOU    FIGHT THIS SCUM? Y=YES N=NO"
  376. 4502 INPUT"IT WILL HIT YOU ONCE IF YOU DECLINE YET YOU WILL ESCAPE!";A$:TL=0
  377. 4503 IFA$="Y"THENGOTO4506
  378. 4504 EMN(A)=EMN(A)+2:FD(1)=FD(1)-13:GOTO4610
  379. 4505 GOTO4610
  380. 4506 IF(ST(1)+WB(1)+CB(1)+XR(1))<1THENGOTO4570
  381. 4507 TL=0:IFA=1THENTL=(MT(1)+MT(2)+MT(3)+MT(4))
  382. 4508 IFA=2THENTL=(FY(1)+FY(2)+FY(3)+FY(4))
  383. 4509 IFA=3THENTL=(RH(1)+RH(2)+RH(3)+RH(4))
  384. 4510 IFA=4THENTL=(LG(1)+LG(2)+LG(3)+LG(4))
  385. 4511 IFA=5THENTL=(SP(1)+SP(2)+SP(3)+SP(4))
  386. 4512 IFA=6THENTL=(HK(1)+HK(2)+HK(3)+HK(4))
  387. 4513 IFA=7THENTL=(RT(1)+RT(2)+RT(3)+RT(4))
  388. 4514 IFA=8THENTL=(SK(1)+SK(2)+SK(3)+SK(4))
  389. 4515 B=0
  390. 4516 IFTL<50ANDTL>31THENB=4:GOTO4520
  391. 4517 IFTL<32ANDTL>24THENB=3:GOTO4520
  392. 4518 IFTL<25ANDTL>19THENB=2:GOTO4520
  393. 4519 IFTL<20ANDTL>0THENB=1:GOTO4520
  394. 4520 POKE53280,2:POKE53281,2:PRINT"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  395. 4521 PRINT"                                      [194]"
  396. 4522 PRINT"[145][194][144]YOU HAVE ENCOUNTERED A[159]";EN$(A)
  397. 4526 PRINT"[194][144]AND TO WARN YOU IT IS KNOWN THAT THIS[194] [194][144]OPPONENT IS A";N$(B)
  398. 4527 PRINT"[157][157][194] [194][144]FIGHTER IN THIS LAND!                [194][144]"
  399. 4528 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][144]"
  400. 4529 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  401. 4530 PRINT"[194][144]HOW DO YOU DEFEND YOURSELF AGAINST   [194]"
  402. 4531 PRINT"[194][144]THIS OPPONENT.........               [194]"
  403. 4533 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  404. 4534 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  405. 4535 PRINT""
  406. 4536 PRINT"[144]SUPPLYS:S-[159]";ST(1)"[144]W-[159]";WB(1)"[144]C-[159]";CB(1)"[144]Z-[159]";XR(1)
  407. 4541 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]":SP=0:CB=0:XR=0:WB=0
  408. 4542 IFST(1)<1THENGOTO4546
  409. 4545 INPUT"[144]HOW MUCH SPIT  0[157][157][157]";SP:IFSP>ST(1)THENGOTO4545
  410. 4546 IFWB(1)<1THENGOTO4548
  411. 4547 INPUT"[144]HOW MUCH WEB  0[157][157][157]";WB:IFWB>WB(1)THENGOTO4547
  412. 4548 IFCB(1)<1THENGOTO4550
  413. 4549 INPUT"[144]HOW MUCH CLIMB  0[157][157][157]";CB:IFCB>CB(1)THENGOTO4549
  414. 4550 IFXR(1)<1THENGOTO4553
  415. 4551 INPUT"[144]HOW MUCH Z-RAY  0[157][157][157]";XR:IFXR>XR(1)THENGOTO4551
  416. 4553 PRINT"                                     "
  417. 4554 FORC=1TO3:PRINT"                                     ":NEXTC
  418. 4555 GOTO1000
  419. 4556 IF(ST(1)+WB(1)+CB(1)+XR(1))<1THENGOTO4570
  420. 4557 DT=INT(RND(0)*25)+5:FD(1)=FD(1)-DT
  421. 4559 PRINT"[146][159][209][159]THE";EN$(A)"LIVES [209][159]ENERGY LOSS:[157][158]";DT
  422. 4560 FORG=1TO5000:NEXT
  423. 4561 FD(1)=FD(1)-DT
  424. 4568 GOTO4520
  425. 4570 POKEBC,10:POKESC,10
  426. 4571 PRINT"[147][144]YOU CANNOT FIGHT THIS ENEMY SO YOU      RUN AWAY OR PERISH...."
  427. 4572 FORC=1TO2000:NEXTA:TL=0
  428. 4573 SW=INT(RND(0)*15)+15:FD(1)=FD(1)-SW
  429. 4574 RETURN
  430. 4600 EY=INT(RND(0)*40)+20
  431. 4601 PRINT"[209]THE";EN$(A)"HAS DIED [209]BOOSTER:";EY
  432. 4602 EMN(A)=0:FORG=1TO5000:NEXT
  433. 4603 FD(1)=FD(1)+EY
  434. 4606 RETURN
  435. 4610 PRINT"[147][144]THE ENEMY YOU HAVE FLED,AND IT HAS RUN  AWAY TO HIDE IN ANOTHER"
  436. 4611 DT=INT(RND(0)*20)+5
  437. 4615 PRINT"TERRITORY WAITING AND LOOKING FOR YOU.."
  438. 4616 PRINT"YOU'RE DAMAGED BY ATTACK[146]:";DT
  439. 4617 FORC=1TO4000:NEXT
  440. 4618 RETURN
  441. 10000 POKESC,0:POKEBC,0
  442. 10010 PRINT"[147]    <R.I.P>"
  443. 10011 PRINT
  444. 10012 PRINT
  445. 10013 PRINT"[158] [209]   [213][177][192][177][201]   [158][209]"
  446. 10014 PRINT"[158][209][194]   [194][159][214] [214][194]   [194][158][209]"
  447. 10015 PRINT"[194][202][192][192][192][202][192][192][192][203][192][192][192][203][194]"
  448. 10016 PRINT"[202][192][192][192][192][213][192][192][192][201][192][192][192][192][203]"
  449. 10017 PRINT"     [194]   [194]     "
  450. 10018 PRINT"[213][192][192][192][192][202][192][192][192][203][192][192][192][192][201]"
  451. 10019 PRINT"[194][213][192][192][213][192][192][192][192][192][201][192][192][201][194]"
  452. 10020 PRINT"[158][209][194]  [194]     [194]  [194][158][209]"
  453. 10021 PRINT" [194]  [194]     [194]  [194] "
  454. 10022 PRINT"[158] [209]  [202][192][192][192][192][192][203]  [158][209]
  455. 10023 [153]"OPENYOU HAVE FAILED IN YOUR MISSION"
  456. 10024 [153]"YOU CAN TRY AGAIN TO SURVIVE THE REAL"
  457. 10025 [153]"CHALLENGES THAT INFEST THE PLANET THERE."
  458. 10026 [153]"ONTRY TO PREPARE BETTER AND MAYBE YOU WILLRULE THE EARTH?"
  459. 10027 [153]"              Y=YES N=NO"
  460. 10028 A$[178]"":[161]A$:[139]A$[177][179]""[167][137]10030
  461. 10029 [137]10028
  462. 10030 [139]A$[178]""[167][137]10028
  463. 10031 [139]A$[178]"N"[167][137]20107
  464. 10032 [156]:PA[178]5:[137]0
  465. 10033 [137]10028
  466. 20000 [129]A[178]15[164]0[169][171]1:[129]B[178]1[164]20:[130]B
  467. 20010 [151]SC,A:[151]BC,A:[130]A:[153]"LOAD"
  468. 20015 [153]"    SYS(null)  OPENMID$(null)TANRIGHT$OPEN(null)  SYS(null)"
  469. 20020 [153]"    FN   PEEK(null)PEEK   THEN"
  470. 20025 [153]"    (null)   MID$TAN(null)   (null)"
  471. 20030 [153]"   SYS(null) (null)(null)TANTANTANTANTANRIGHT$(null) SYS(null)"
  472. 20035 [153]"   PEEK  PEEKOPENPEEKCLRPEEKPEEKSYSPEEKPEEKPEEK  PEEK"
  473. 20040 [153]"   MID$TANTANPEEKOPENPEEKCLRPEEKPEEKPEEKSYSPEEKPEEKTANTAN(null)"
  474. 20045 [153]"      MID$TANTANTANTANTAN(null)   "
  475. 20050 [153]" (null)TANTANTAN(null)TANTANTANTANTANTANTANRIGHT$TANTANTANRIGHT$"
  476. 20055 [153]" PEEK   PEEK(null)(null)(null)(null)(null)(null)(null)PEEK   PEEK"
  477. 20060 [153]" PEEK  (null)PEEK(null)(null)(null)(null)(null)(null)(null)PEEK(null)  PEEK"
  478. 20065 [153]" SYS(null) THEN PEEK(null)(null)(null)(null)(null)(null)(null)PEEKTHEN  SYS(null)"
  479. 20070 [153]"   THEN MID$TANTANTANTANTANTANTAN(null)THEN   "
  480. 20080 [153]"   SYS(null)OPEN    MID$ (null)    SYS(null)  "
  481. 20081 [153]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
  482. 20082 [153]"ONPEEKYOU HAVE COMPLETED THE MISSION AND YOUPEEK"
  483. 20083 [153]"ONPEEKHAVE BRUNG BACK THE PROPER EGGS AND ATPEEK"
  484. 20084 [153]"ONPEEKTHIS TIME IT IS HARD TO SAY IF YOU    PEEK"
  485. 20085 [153]"ONPEEKWILL TAKE OVER THE EARTH BUT AS YOU   PEEK"
  486. 20086 [153]"ONPEEKSTAND BACK AND SET THE EGGS DOWN ON   PEEK"
  487. 20087 [153]"ONPEEKTHE GROUND THEY BEGIN TO HATCH LIKE   PEEK"
  488. 20088 [153]"ONPEEKCRAZY AND A SMILE COMES TO YOUR FACE! PEEK"
  489. 20089 [153]"ONMID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
  490. 20090 [129]A[178]1[164]10:[153]"SAVE":[153]"SAVE":[153]"SAVE":[153]"SAVE":[153]"SAVE":[153]"SAVE":[153]"SAVE"
  491. 20091 [153]"SAVE":[153]"SAVE":[153]"SAVE":[153]"SAVE":[153]"SAVE":[153]"CMD":[153]"SAVE"
  492. 20092 [129]B[178]1[164]1000:[130]B
  493. 20093 [130]A
  494. 20099 [141]30000
  495. 20100 [153]"OPENPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
  496. 20101 [153]"OPENFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  497. 20102 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)GAME OVER(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  498. 20103 [129]A[178]1[164]1000:[130]A
  499. 20104 [153]"               GAME OVER":[129]A[178]1[164]1000:[130]A
  500. 20105 [153]"               GAME OVER                "
  501. 20106 [129]A[178]1[164]1000:[130]A
  502. 20107 [153]"LOAD               GAME OVER                ":[137]20107
  503. 20181 [130]A
  504. 30000 [129]A[178]1[164]20:[153]"LOAD                    PEEKONCMDPEEKCMDPEEKCMDPEEKCMDPEEK"
  505. 30005 [153]"              SYS(null)   OPEN(null)(null)TANRIGHT$OPEN(null)   SYS(null)"
  506. 30020 [153]"              (null)    PEEKATNPEEK    (null)"
  507. 30025 [153]"               (null)   MID$TAN(null)   (null)"
  508. 30030 [153]"              SYS(null) (null)(null)TANTANTANTANTANRIGHT$(null) SYS(null)"
  509. 30035 [153]"              PEEK  PEEKOPENPEEKCLRPEEKPEEKSYSPEEKPEEKPEEK  PEEK"
  510. 30040 [153]"              MID$TANTANPEEKOPENPEEKCLRPEEKPEEKPEEKSYSPEEKPEEKTANTAN(null)"
  511. 30045 [153]"                 MID$TANTANTANTANTAN(null)   "
  512. 30050 [153]"             TOTOTO(null)TANTANTANTANTANTANTANRIGHT$TOTOTO "
  513. 30055 [153]"            (null)   PEEK(null) (null) (null) (null)PEEK   (null)"
  514. 30060 [153]"           (null)   (null)PEEK (null) (null) (null) PEEK(null)   (null)"
  515. 30065 [153]"          SYS(null)   (null) PEEK(null) (null) (null) (null)PEEK (null)   SYS(null)"
  516. 30070 [153]"             (null)  MID$TANTANTANTANTANTANTAN(null)  (null)   "
  517. 30080 [153]"            SYS(null)OPEN      MID$ (null)      SYS(null)  "
  518. 30090 [153]"LOAD                    PEEKONCMDPEEKCMDPEEKCMDPEEKCMDPEEK"
  519. 30100 [153]"               SYS(null)  OPENMID$(null)TANRIGHT$OPEN(null)  SYS(null)"
  520. 30120 [153]"               FN   PEEK(null)PEEK   THEN"
  521. 30125 [153]"               (null)   MID$TAN(null)   (null)"
  522. 30130 [153]"              SYS(null) (null)(null)TANTANTANTANTANRIGHT$(null) SYS(null)"
  523. 30135 [153]"              PEEK  PEEKOPENPEEKCLRPEEKPEEKSYSPEEKPEEKPEEK  PEEK"
  524. 30140 [153]"              MID$TANTANPEEKOPENPEEKCLRPEEKPEEKPEEKSYSPEEKPEEKTANTAN(null)"
  525. 30145 [153]"                 MID$TANTANTANTANTAN(null)   "
  526. 30150 [153]"            (null)TANTANTAN(null)TANTANTANTANTANTANTANRIGHT$TANTANTANRIGHT$"
  527. 30155 [153]"            PEEK   PEEK(null)(null)(null)(null)(null)(null)(null)PEEK   PEEK"
  528. 30160 [153]"            PEEK  (null)PEEK(null)(null)(null)(null)(null)(null)(null)PEEK(null)  PEEK"
  529. 30165 [153]"            SYS(null) THEN PEEK(null)(null)(null)(null)(null)(null)(null)PEEKTHEN  SYS(null)"
  530. 30170 [153]"              THEN MID$TANTANTANTANTANTANTAN(null)THEN   "
  531. 30180 [153]"              SYS(null)OPEN    MID$ (null)    SYS(null)  "
  532. 30181 [130]A
  533. 30182 [129]A[178]1[164]30:[153]:[130]A
  534. 30183 [142]
  535. 50000 [131]" SPOD ",1," TIB ",0," HOARF ",2," PETTABUG ",0," SPAK ",3," DROD ",3
  536. 50001 [131]" RAF ",2," SMOOG ",3
  537. 50002 [131]" WIMPY "," FORMIABLE "," GREAT "," DEADLY "
  538.